projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
68e3e5f
)
Fix indentation.
author
Richard M. Stallman
<rms@gnu.org>
Mon, 1 Sep 1997 21:29:44 +0000
(21:29 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Mon, 1 Sep 1997 21:29:44 +0000
(21:29 +0000)
lisp/files.el
patch
|
blob
|
history
diff --git
a/lisp/files.el
b/lisp/files.el
index 896640171c1c17f97f8005e159130bd3990fb29a..7b5bca4a4dbd9dfd6190eee9f58fd3e884d94d88 100644
(file)
--- a/
lisp/files.el
+++ b/
lisp/files.el
@@
-2742,7
+2742,7
@@
See also `auto-save-file-name-p'."
(if (and (eq system-type 'ms-dos)
(not (msdos-long-file-names)))
(let ((fn (file-name-nondirectory buffer-file-name)))
-
(string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn)
+ (string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn)
(concat (file-name-directory buffer-file-name)
"#" (match-string 1 fn)
"." (match-string 3 fn) "#"))